﻿Public Class frmCadastroEncaminhamento
    Private trab As New _Trabalhador
    Private vag As New _VagaTrabalho
    Private enc As New _encaminhamento
    Private emp As New _empregador

    Private idTrabalhador As Integer
    Private idVagaDeTrabalho As Integer
    Private idEncaminhamento As Integer

    Private Modo As String


    Public Sub New(ByVal pModo As String, ByVal pIdTrabalhador As Integer)
        Modo = pModo
        idTrabalhador = pIdTrabalhador
        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Private Sub setEncaminhamento()
        With enc
            .idTrabalhador = Me.idTrabalhador
            .idVaga = Me.idVagaDeTrabalho
            .dtEncaminhamento = Me.txtDTEncaminhamento.Text
            .dsObservacao = Me.txtObservacao.Text

        End With

    End Sub

    Private Sub btnInserir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInserir.Click

        setEncaminhamento()
        idEncaminhamento = enc.insereEncaminhamento()
        MsgBox("Encaminhamento incluido com sucesso")

    End Sub


    Private Sub btnTrabalhador_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTrabalhador.Click

        Dim j As New frmConsultaTrabalhador
        If j.ShowDialog = Windows.Forms.DialogResult.OK Then
            trab.ConsultaTrabalhadorPorId(j.idPesquisaTrabalhador)
            Me.idTrabalhador = j.idPesquisaTrabalhador
            txtCPF.Text = trab.nuCPF
            txtNomeTrabalhador.Text = trab.nmCompleto
            cmdSexo.Text = trab.sxSexo
            txtCNH.Text = trab.ctCNH
            txtDTNascimento.Text = trab.dtNascimento
            cxImgTrabalhador.ImageLocation = trab.pathImgTrabalhador

        End If

    End Sub

    Private Sub getVagasDetrabalho()
        With vag
            idVagaDeTrabalho = .idVagaDeTrabalho
            txtNmEmpresa.Text = .nmEmpresa
            txtDsCargoFuncao.Text = .dsCargo
            txtDtCadastro.Text = .dtCadastro
            txtAtivdades.Text = .dsAtivBenReq
            txtQtdeVagas.Text = .qtVagas

        End With

    End Sub

    Private Sub btnVaga_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVaga.Click
        Dim j As New frmConsultaVagaDeTrabalho
        If j.ShowDialog = Windows.Forms.DialogResult.OK Then
            idVagaDeTrabalho = j.idVaga
            vag.consultaVagaPorId(j.idVaga)
            getVagasDetrabalho()
        End If

    End Sub

    Private Sub frmCadastroEncaminhamento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtDTEncaminhamento.Text = Now.Date
        If Modo = "enc" Then

            trab.ConsultaTrabalhadorPorId(idTrabalhador)
            Me.idTrabalhador = idTrabalhador
            txtCPF.Text = trab.nuCPF
            txtNomeTrabalhador.Text = trab.nmCompleto
            cmdSexo.Text = trab.sxSexo
            txtCNH.Text = trab.ctCNH
            txtDTNascimento.Text = trab.dtNascimento
            cxImgTrabalhador.ImageLocation = trab.pathImgTrabalhador

        End If
    End Sub


    Private Sub btnConsultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultar.Click

        Dim j As New frmConsultaEncaminhamento
        j.ShowDialog()
        Try
            enc.consultaEncaminhamentoPorId(j.idEncaminhamento)

            idEncaminhamento = j.idEncaminhamento
            txtDTEncaminhamento.Text = enc.ArrayRetorno("dtEncaminhamento").ToString
            txtObservacao.Text = enc.ArrayRetorno("dsObservacao").ToString
            txtCPF.Text = enc.ArrayRetorno("nuCPF").ToString
            txtNomeTrabalhador.Text = enc.ArrayRetorno("nmCompleto").ToString
            cmdSexo.Text = enc.ArrayRetorno("sxSexo").ToString
            txtCNH.Text = enc.ArrayRetorno("ctCNH").ToString
            vag.idVagaDeTrabalho = enc.ArrayRetorno("idVagaDeTrabalho").ToString
            txtQtdeVagas.Text = enc.ArrayRetorno("qtVagas").ToString
            txtDtCadastro.Text = enc.ArrayRetorno("dtCadastro").ToString
            txtNmEmpresa.Text = enc.ArrayRetorno("nmEmpresa").ToString
            txtDsCargoFuncao.Text = enc.ArrayRetorno("dsCargo").ToString
            txtAtivdades.Text = enc.ArrayRetorno("dsAtivBenReq").ToString
        Catch ex As Exception
        End Try

    End Sub

    Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
        enc.geraXMLEncaminhamento(idEncaminhamento)
        Dim frm As New frmRPTEncaminhamento
        frm.ShowDialog()
    End Sub

    Private Sub btnImprimir_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles btnImprimir.DragOver

    End Sub


End Class